home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_VB / NONSIZE.ZIP;1 / FORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-12-29  |  1.3 KB  |  46 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Non-sizable MDI Child"
  4.    ClientHeight    =   2355
  5.    ClientLeft      =   1140
  6.    ClientTop       =   2985
  7.    ClientWidth     =   4200
  8.    Height          =   2760
  9.    Left            =   1080
  10.    LinkTopic       =   "Form3"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   2355
  13.    ScaleWidth      =   4200
  14.    Top             =   2640
  15.    Width           =   4320
  16.    Begin SubClassEZ_demo SubClass1 
  17.       Height          =   420
  18.       Left            =   0
  19.       Top             =   0
  20.       Width           =   420
  21.    End
  22. Option Explicit
  23. Sub Form_Load ()
  24.     ' remove Size command from system menu
  25.     NoSizeMenu (Me.hWnd)
  26.     ' tell SubEZ to capture form messages
  27.     SubClass1.HwndParam = Me.hWnd
  28. End Sub
  29. Sub SubClass1_MsgQueue (wnd As Integer, msg As Integer, wp As Integer, lp As Long, retval As Long, doDef As Integer)
  30.     Dim wLo As Integer
  31.     Dim wHi As Integer
  32.     ' get low word of lParam
  33.     wLo = LoWord(lp)
  34.     ' get high word of lParam
  35.     wHi = HiWord(lp)
  36.     ' if cursor is being set...
  37.     If msg = WM_SETCURSOR Then
  38.     ' and it's over the border...
  39.     If wLo >= HTLEFT And wLo <= HTBOTTOMRIGHT Then
  40.     ' tell app cursor is over background
  41.     wLo = HTCLIENT
  42.     lp = MakeLong(wLo, wHi)
  43.     End If
  44.     End If
  45. End Sub
  46.